anioCTG<-data %>%
  group_by(Año,Tipo.de.circulación,Estado.del.tiempo,Clase.de.accidente) %>%
  summarise(NumeroAccidentes=n(),.groups="drop")

anioCTG<-anioCTG%>%
  group_by(Año,Tipo.de.circulación,Estado.del.tiempo,Clase.de.accidente)%>%
  summarise(Accidentes = min(NumeroAccidentes),.groups = "drop")%>%
  arrange(Accidentes)
anioCTG<-anioCTG%>%
  rename(Circulacion = Tipo.de.circulación)%>%
  rename(Clima = Estado.del.tiempo)%>%
  rename(Gravedad = Clase.de.accidente)

anioCTG$Año<-substr(anioCTG$Año, start = 3, stop = nchar(anioCTG$Año))
#elimino el 20 del año para que sea mejor la respresentación textual
#o sea en vez de 2016 sale 16
LS0tDQp0aXRsZTogIkFjY2lkZW50ZXMgZGUgdHJhbnNpdG8gZW4gQ1IgZW50cmUgMjAxNi0yMDIyIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KYGBge3IsIGVjaG8gPSBGQUxTRX0NCmRhdGEgPC0gcmVhZC5jc3YoImFjY2lkZW50ZXNfdHJhbnNpdG9fY29uX3ZpY3RpbWFzXzIwMTZfMjAyMi5jc3YiLCBzZXAgPSAiOyIpDQpgYGANCg0KYGBge3IsIGVjaG8gPSBGQUxTRX0NCmxpYnJhcnkoZHBseXIpDQpsaWJyYXJ5KGdncGxvdDIpDQpsaWJyYXJ5KHBsb3RseSkNCmxpYnJhcnkoY29sb3JzcGFjZSkNCmBgYA0KDQpgYGB7ciwgZWNobz1GQUxTRX0NCiNvYnRlbmVtb3MgbG9zIG1lc2VzLCBkaWFzIHkgbGEgcnV0YSBkb25kZQ0KI21hcyBhY2NpZGVudGVzIGhheQ0KbWVzZXNfZGlhc19SVV9tYXNfYWNjaWRlbnRlcyA8LSBkYXRhICU+JQ0KICBmaWx0ZXIoZ3JlcGwoIl5bQS1MXVxcLi4qXFxzKEVuZXJvfEZlYnJlcm98TWFyem98QWJyaWx8TWF5b3xKdW5pb3xKdWxpb3xBZ29zdG98U2V0aWVtYnJlfE9jdHVicmV8Tm92aWVtYnJlfERpY2llbWJyZSkkIiwgTWVzKSkgJT4lDQogIGZpbHRlcihncmVwbCgiXlsxLTddXFwuKERvbWluZ298THVuZXN8TWFydGVzfE1pw6lyY29sZXN8SnVldmVzfFZpZXJuZXN8U8OhYmFkbykkIiwgRMOtYSkpICU+JQ0KICBncm91cF9ieShNZXMsRMOtYSxSdXRhKSAlPiUNCiAgc3VtbWFyaXNlKE1EdG90YWxfYWNjaWRlbnRlcyA9IG4oKSkgJT4lDQogIGFycmFuZ2UoZGVzYyhNRHRvdGFsX2FjY2lkZW50ZXMpKQ0KDQpyZWdpc3Ryb3NfbWFzX2ZyZWN1ZW50ZXMgPC0gbWVzZXNfZGlhc19SVV9tYXNfYWNjaWRlbnRlcyAlPiUNCiAgZ3JvdXBfYnkoTWVzKSAlPiUNCiAgc2xpY2UoMSkNCiAgDQpudW1lcm9fbWVzIDwtIHNlcSgxLCAxMiwgbGVuZ3RoLm91dCA9IG5yb3cocmVnaXN0cm9zX21hc19mcmVjdWVudGVzKSkNCm51bWVyb19tZXMgPC0gYXMuaW50ZWdlcihudW1lcm9fbWVzKQ0KcmVnaXN0cm9zX21hc19mcmVjdWVudGVzIDwtIGNiaW5kKHJlZ2lzdHJvc19tYXNfZnJlY3VlbnRlcywgTnVtZXJvTWVzID0gbnVtZXJvX21lcykNCg0KIyBDcmVhciB1bmEgY29sdW1uYSBwYXJhIGVsIG7Dum1lcm8gZGUgZMOtYSBzZWfDum4gZWwgZMOtYSBkZSBsYSBzZW1hbmEgZW4gcmVnaXN0cm9zX21hc19mcmVjdWVudGVzDQpyZWdpc3Ryb3NfbWFzX2ZyZWN1ZW50ZXMkQ29sb3JEaWEgPC1pZmVsc2UocmVnaXN0cm9zX21hc19mcmVjdWVudGVzJETDrWEgPT0gIjEuRG9taW5nbyIsICJibHVlIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaWZlbHNlKHJlZ2lzdHJvc19tYXNfZnJlY3VlbnRlcyREw61hID09ICIyLkx1bmVzIiwgInJlZCIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGlmZWxzZShyZWdpc3Ryb3NfbWFzX2ZyZWN1ZW50ZXMkRMOtYSA9PSAiMy5NYXJ0ZXMiLCAieWVsbG93IiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaWZlbHNlKHJlZ2lzdHJvc19tYXNfZnJlY3VlbnRlcyREw61hID09ICI0Lk1pw6lyY29sZXMiLCAiY3lhbiIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGlmZWxzZShyZWdpc3Ryb3NfbWFzX2ZyZWN1ZW50ZXMkRMOtYSA9PSAiNS5KdWV2ZXMiLCAiZGFya2dyZWVuIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaWZlbHNlKHJlZ2lzdHJvc19tYXNfZnJlY3VlbnRlcyREw61hID09ICI2LlZpZXJuZXMiLCAiYnJvd24iLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBpZmVsc2UocmVnaXN0cm9zX21hc19mcmVjdWVudGVzJETDrWEgPT0gIjcuU8OhYmFkbyIsICJibGFjayIsIE5BKSkpKSkpKQ0KDQpyZWdpc3Ryb3NfbWFzX2ZyZWN1ZW50ZXMkaWRSdXRhIDwtaWZlbHNlKHJlZ2lzdHJvc19tYXNfZnJlY3VlbnRlcyRSdXRhID09ICJDYW50b25hbCIsIDEpDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICANCnJlZ2lzdHJvc19tYXNfZnJlY3VlbnRlcyRNZXMgPC0gZ3N1YigiW0EtTF1cXC4iLCAiIiwgcmVnaXN0cm9zX21hc19mcmVjdWVudGVzJE1lcykNCg0KcmVnaXN0cm9zX21hc19mcmVjdWVudGVzJETDrWEgPC0gZ3N1YigiWzEtN11cXC4iLCAiIiwgcmVnaXN0cm9zX21hc19mcmVjdWVudGVzJETDrWEpDQoNCmBgYA0KDQpgYGB7ciwgZWNobyA9IEZBTFNFfQ0KZ3JhZmljb19jaGVybm9mZiA8LSBnZ3Bsb3QocmVnaXN0cm9zX21hc19mcmVjdWVudGVzLCBhZXMoeCA9IE51bWVyb01lcywgeSA9IGlkUnV0YSxsYWJlbDEgPSBNZXMsbGFiZWwyID0gUnV0YSxsYWJlbDMgPSBEw61hKSkgKw0KICBnZW9tX3BvaW50KHNpemUgPSA5LGNvbG91ciA9IHJlZ2lzdHJvc19tYXNfZnJlY3VlbnRlcyRDb2xvckRpYSkgKw0KICBsYWJzKHggPSAiTWVzIix5ID0gIlJ1dGEiKSArDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSAi8J+Rge+4jyDwn5GB77iPIiksdmp1c3QgPSAtNSwgc2l6ZSA9IDMpKyAgDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSAi8J+RhCIpLCB2anVzdCA9IDUsIHNpemUgPSAyKSArDQogIHRoZW1lX2J3KCkNCg0KIyBDb252ZXJ0aW1vcyBlbCBncsOhZmljbyBnZ3Bsb3QyIGVuIHVubyBpbnRlcmFjdGl2byBjb24gcGxvdGx5DQpncmFmaWNvX2ludGVyYWN0aXZvIDwtIGdncGxvdGx5KGdyYWZpY29fY2hlcm5vZmYsdG9vbHRpcCA9IGMoImxhYmVsMSIsICJsYWJlbDIiLCAibGFiZWwzIikpDQoNCiMgTW9zdHJhbW9zIGVsIGdyw6FmaWNvIGludGVyYWN0aXZvDQpncmFmaWNvX2ludGVyYWN0aXZvDQoNCiMgMTIgY2FyYXMgcG9yIGxvcyBtZXNlcywgY29sb3IgY2FyYSBkaWFzIC4uLiB5IHRhbWFuaG8gY2FyYSBydXRhDQpgYGANCg0KYGBge3IsZWNobz1GQUxTRX0NCnJ1cmFsVXJiYW5vX21hc19hY2NpZGVudGVzPC1kYXRhICU+JQ0KICBncm91cF9ieShSdXJhbC5vLnVyYmFubyklPiUNCiAgc3VtbWFyaXNlKFJVdG90YWxfYWNjaWRlbnRlcyA9IG4oKSkgJT4lDQogIGFycmFuZ2UoZGVzYyhSVXRvdGFsX2FjY2lkZW50ZXMpKQ0KIyBkZXNkZSAyMDE2IGhhc3RhcyAyMDIyDQpgYGANCg0KYGBge3IsZWNobz1GQUxTRX0NCmxhYmVscyA9IHJ1cmFsVXJiYW5vX21hc19hY2NpZGVudGVzJFJ1cmFsLm8udXJiYW5vDQp2YWx1ZXMgPSBydXJhbFVyYmFub19tYXNfYWNjaWRlbnRlcyRSVXRvdGFsX2FjY2lkZW50ZXMNCg0KZmlnIDwtIHBsb3RfbHkodHlwZT0ncGllJywgbGFiZWxzPWxhYmVscywgdmFsdWVzPXZhbHVlcywgDQogICAgICAgICAgICAgICB0ZXh0aW5mbz0nbGFiZWwrcGVyY2VudCcsDQogICAgICAgICAgICAgICBpbnNpZGV0ZXh0b3JpZW50YXRpb249J3JhZGlhbCcpDQpmaWcgPC0gZmlnICU+JSBsYXlvdXQodGl0bGUgPSAnQWNjaWRlbnRlcyBwb3IgcnV0YSBlbnRyZSAyMDE2LTIwMjInKQ0KDQpmaWcNCmBgYA0KDQpgYGB7cixlY2hvPUZBTFNFfQ0KI3kgPW1pZGVwbGFuIHg9IGNhbnRvbg0KI3RlbmVyIGNhbnRvbiBjb24gbWFzIHkgbWVub3MgYWNjaWRlbnRlcw0KcmVnaW9uX2NhbnRvbl9tYXNfYWNjaWRlbnRlczwtZGF0YSU+JQ0KICBncm91cF9ieShSZWdpw7NuLk1pZGVwbGFuLCBDYW50w7NuKSU+JQ0KICBzdW1tYXJpc2UoUkN0b3RhbF9hY2NpZGVudGVzID0gbigpLC5ncm91cHMgPSAiZHJvcCIpDQoNCnJlZ2lvbl9jYW50b25fbWFzX2FjY2lkZW50ZXM8LXJlZ2lvbl9jYW50b25fbWFzX2FjY2lkZW50ZXMlPiUNCiAgZ3JvdXBfYnkoUmVnacOzbi5NaWRlcGxhbiwgQ2FudMOzbiklPiUNCiAgc3VtbWFyaXNlKG1heF92YWxvciA9IG1heChSQ3RvdGFsX2FjY2lkZW50ZXMpLC5ncm91cHMgPSAiZHJvcCIpJT4lDQogIGFycmFuZ2UobWF4X3ZhbG9yKQ0KDQojIE7Dum1lcm8gZGUgY29sb3JlcyBkZXNlYWRvDQpuX2NvbG9yZXMgPC0gMTc2DQoNCiMgR2VuZXJhciBsYSBwYWxldGEgZGUgY29sb3Jlcw0KDQpwYWxldGFfY29sb3JlcyA8LXJhaW5ib3dfaGNsKG5fY29sb3JlcykgIyBFamVtcGxvIGRlIGNvbG9yZXMgYmFzZQ0KYGBgDQoNCmBgYHtyLGVjaG89RkFMU0V9DQoNCmZpZyA8LSBwbG90X2x5KHJlZ2lvbl9jYW50b25fbWFzX2FjY2lkZW50ZXMsIHggPSB+UmVnacOzbi5NaWRlcGxhbiwgeSA9IH5tYXhfdmFsb3IsIG1hcmtlciA9IGxpc3QoY29sb3I9cGFsZXRhX2NvbG9yZXMpICwgdHlwZSA9ICdiYXInLGhvdmVydGVtcGxhdGUgPSB+cGFzdGUoIlJlZ2nDs246ICIsIFJlZ2nDs24uTWlkZXBsYW4sICI8YnI+Q2FudMOzbjogIiwgQ2FudMOzbiwgIjxicj5WYWxvcjogIiwgbWF4X3ZhbG9yLA0KICAgICAgIjxleHRyYT48L2V4dHJhPiIpKQ0KDQpmaWcgPC0gZmlnICU+JSBsYXlvdXQoeWF4aXMgPSBsaXN0KHRpdGxlID0gJycpLHhheGlzPWxpc3QodGl0bGUgPSAnJyksIGJhcm1vZGUgPSAnc3RhY2snKQ0KDQpmaWcNCmBgYA0KDQpgYGB7cn0NCmFuaW9DVEc8LWRhdGEgJT4lDQogIGdyb3VwX2J5KEHDsW8sVGlwby5kZS5jaXJjdWxhY2nDs24sRXN0YWRvLmRlbC50aWVtcG8sQ2xhc2UuZGUuYWNjaWRlbnRlKSAlPiUNCiAgc3VtbWFyaXNlKE51bWVyb0FjY2lkZW50ZXM9bigpLC5ncm91cHM9ImRyb3AiKQ0KDQphbmlvQ1RHPC1hbmlvQ1RHJT4lDQogIGdyb3VwX2J5KEHDsW8sVGlwby5kZS5jaXJjdWxhY2nDs24sRXN0YWRvLmRlbC50aWVtcG8sQ2xhc2UuZGUuYWNjaWRlbnRlKSU+JQ0KICBzdW1tYXJpc2UoQWNjaWRlbnRlcyA9IG1pbihOdW1lcm9BY2NpZGVudGVzKSwuZ3JvdXBzID0gImRyb3AiKSU+JQ0KICBhcnJhbmdlKEFjY2lkZW50ZXMpDQphbmlvQ1RHPC1hbmlvQ1RHJT4lDQogIHJlbmFtZShDaXJjdWxhY2lvbiA9IFRpcG8uZGUuY2lyY3VsYWNpw7NuKSU+JQ0KICByZW5hbWUoQ2xpbWEgPSBFc3RhZG8uZGVsLnRpZW1wbyklPiUNCiAgcmVuYW1lKEdyYXZlZGFkID0gQ2xhc2UuZGUuYWNjaWRlbnRlKQ0KDQphbmlvQ1RHJEHDsW88LXN1YnN0cihhbmlvQ1RHJEHDsW8sIHN0YXJ0ID0gMywgc3RvcCA9IG5jaGFyKGFuaW9DVEckQcOxbykpDQojZWxpbWlubyBlbCAyMCBkZWwgYcOxbyBwYXJhIHF1ZSBzZWEgbWVqb3IgbGEgcmVzcHJlc2VudGFjacOzbiB0ZXh0dWFsDQojbyBzZWEgZW4gdmV6IGRlIDIwMTYgc2FsZSAxNg0KYGBgDQoNCmBgYHtyLGVjaG89RkFMU0V9DQpmYWNlSW50ZXJhY3Rpdm8gPC0gZ2dwbG90KGFuaW9DVEcsIGFlcyh4PUNpcmN1bGFjaW9uLCB5PUFjY2lkZW50ZXMsIGNvbG9yPUNsaW1hLCBncm91cD1HcmF2ZWRhZCkpICsNCiAgICBnZW9tX3BvaW50KCkrDQogICAgbGFicyh4PSJUaXBvIGRlIGNpcmN1bGFjacOzbiIseT0iQ2FudGlkYWQgYWNjaWRlbnRlcyIsY29sb3VyPSIgRXN0YWRvIGRlbCBjbGltYSIpKw0KICBzY2FsZV95X2NvbnRpbnVvdXMobGltaXRzID0gYygwLCAyNjAwKSwgYnJlYWtzID0gYygwLCAyNjAwKSkrDQogIHRoZW1lKGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gLTQ1LCBoanVzdCA9IDApLGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KGFuZ2xlPTEyKSkrDQogICAgZmFjZXRfZ3JpZChBw7FvIH4gLiwgc2NhbGUgPSAiZnJlZV94IixzcGFjZSA9ICJmcmVlIikNCiAgICANCg0KZ2dwbG90bHkoZmFjZUludGVyYWN0aXZvKQ0KYGBgDQo=